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16-Sep-1984 00:26:27 VAX=11 Bliss-32_ V4.0-74 P 
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M4 1 001 MODULE EXTFCB ( | 
3 ¢ pee LANGUAGE (OL S836) « 

3 0 IDENT = ‘V04-000' | 
3 4 004 d= 

3 5 0005 1 BEGIN 

; 6 0006 1 

3 7 0007 1! 

3 3 $4 ! SRR R REAR AEAAEARAARERAEAARARAARAAEEAAEEEAATAO REA EEE AAARAEKEKAAAAAAA Ae 

‘ '® & 

s 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

.) 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 

; 1 dig is ALL RIGHTS RESERVED. ‘ 
; 1% 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

.) 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

H 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

. oF 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 1 44 : 7 TRANSFERRED. * 

s i® ® 

4 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 $§ Oos¢ 1 !'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $i OnS7 : - CORPORATION. * 

4 ‘® * 

3 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

cs ae pose 1 Ie * 

; ae 0028 1 !«* * 

: $3 5 34 DF eR ARATE AAR AEA EE 

: 0 0030 1 

s; ST 0031 1 !++ 

3 3 Ooa¢ 1! 

3 3 0033 1! FACILITY: F11ACP Structure Level 2 

= 0034 1! 

; 0035 1 ! ABSTRACT: 

: 0036 1! r : 

: a 0037 1! This module contains a routine which will build the 

; 3 si : extension fcb chain for the given fcb, if necessary. 

: 40 0040 1 ! ENVIRONMENT: 

; 461 0041 1! 

3 62 B0e§ 1! VAX/VMS operating system, including privileged system services 
; 643 00435 1! and internai exec routines. This routine must be called in 

3s 64 0044 1! kernel mode. 

; 645 0045 1! 

:; 646 0046 1 !-- 

; 47 0047 1! 

; «648 0048 1! 

: 4 sr ' AUTHOR: Andrew C. Goldstein, CREATION DATE: 25-Jul-1977 10:55 

3.51 boas 1 ! MODIFIED BY: 
3 26 8236 1! 
2 0053 1! v03-007 CDS0005_ Christian D. Saether GP etugn 1904 

; * 0054 1! Add optional second argument to BUILD EXT_FCB 

; 2? BR32 : to specify primary fcb other than PRIMARY_FCB. 

ce 0057 1! v03-006 CDS0004 Christian D. Saether 21-Aug-1984 
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REQUIRE 
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18-Sep-1984 93598:35 «| UISSUmGMASTERSCHTig. cee exrrce.e32;1°%° «1 


Updat ¢ EFOLK oryee burning. back to primary when 
build ding extension fcb chain. 
CDS 


v03-005 0003 Christian D. Saether xT PBs -1984 
Replace MAKE_EXTFCB Pe 2 with BUILD. EXT_FCBS 

v03-004 ag 4 Cor tetion D. Saether 19-Apr-1984 
Set up FCBSL "LOCKBASIS to be that of primary fcb. 

v03-003 CDS0001 Christian D. Saether 30-Dec-1983 
Use L_NORM Linkage ana BIND_COMMON macro. 

v03-002 LMP005S9 L. Mark Pilan 21-Dec-1982 10:51 
apveys create an FCB for a tite header accessed. his 
eliminates a lot of special casing for FCB handling. 

v03-001 ACG0272 Andrew C. Goldstein, 23-Mar-1982 10:17 
Clean up use of dummy FCB 

B0102 ACG26369 Andrew C. Goldstein, 28-Dec-1979 15:44 

Fix multi-header interlock bug 

B0101 ACG0003 Andrew C. Goldstein, 19-Dec-1978 17:40 

Add multi-volume support 

B0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:00 

Previous revision history moved to CF11B.SRCJF11B.REV 


B.L32"; 
2"; 


7 
| 
Use REFCNT instead of ACNT. 
LI 
*SRCS$:FC B i} 
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3 GLOBAL ROUTINE BUILD_EXT_FCBS (PRIMHDR, PFCB) : L_NORM NOVALUE = 
94 '++ 

95 ' 

9 FUNCTIONAL DESCRIPTION: 


Build the extension fcb chain ae es with the er iaery 
fcb and header. Update the size in the primary fcb. Turn 
the header back when done. 


SIDE EFFECTS: 
new FCBs created, primary fcb modified 
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PRIMHDR : REF BBLOCK; ! file header arg 

BIND_COMMON; 

EXTERNAL ROUTINE 
CREATE_F 


CB : L_NORM, ! create a new FCB 
NEXT_HEADER : LINORM, 
READ_HEADER : LINORM; 
LOCAL 
: REF BBLOCK, 
PRIMFCB : REF BBLOCK, 
NEW_FCB REF BBLOCK, 
HEADER : REF BBLOCK, 
NEW_HEADER : REF BBLOCK; 


BEGIN 
PRIMFCB = .PFCB; 


This is a flag for READ_HEADER to tell it not to update FILE HEADER. 
This prevents it from being set when yg Be, with directory Readers. 
The flag is a one-shot cleared by READ_HEADER (which may be called 

by NEXT_HEADER). 


BIStLGs CSTS_LEAVE_FILEHDR) = 1; 


IF ACTUALCOUNT EQL 2 
HEN 


FCB = .PRIMFCB; 
HEADER = .PRIMHDR; 


era. (NEW_HEADER = NEXT_HEADER (.HEADER, .FCB)) EQL 0 


SE | 
PRIMFCB = .PRIMARY_FCB; | 

| 

} 
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BEGIN 
HEADER = .NEW_HEADER; 
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IF ACTUALCOUNT EQL 2 
NEW_FCB = CREATE_FCB (.HEADER, .PRIMFCB) 
NEW_FCB = CREATE_FCB (.HEADER); 
CURRENT_VCB CVCB$W_TRANS] = .CURRENT_VCB CVCBSW_TRANS) + 1; 
NEW_FCB CFC REFCNT) = 1; 
NEW-FCB CFCBSL-LOCKBASIS) = .PRIMFCB SFCBS$L_LOCKBASIS); 
EW-FCB CFCBSL~STVBN) = .NEW FCB CFCBSL TVBN) + .PRIMFCB CFCBSL_FILESIZE); 
CBSL-FILESIZE] = .PRIMFCB CFCBSL_FILESIZE) 
NEW_FCB CFCBSL_FILESIZE); 


wn” 


+ * 
PRIMFCB CFCBSL~ 


\d 
L 
L 
L_FI A 
FCB CFCBSL_EXFCB] = .NEW_FCB; 

FCB = .NEW_FCB; 
! Set it up for the next NEXT_HEADER or the possible READ_HEADER 
; if we drop out of this loop. 
3 en EQL 2 
; STSFLGS CSTS_LEAVE_FILEHDR] = 1; | 
2 END; | 
$ IF .FCB NEO .PRIMFCB | 
¢ THEN 

BEGIN 
; HEADER = READ_HEADER (0, .PRIMFCB); 
3 PRIMFCB CFCBSL_EFBLK] = ROT (.BBLOCKCHEADERCFH2$W_RECATTR], FATSL_EFBLK], 16); 
3 
3 
3 
; 
: 
1 


IF .PRIMFCB CFCBSL_EFBLK] NEQ 0 
AND .BBLOCKCHEADERCFH2$W_RECATTR], FATSW_FFBYTE) EQL 0 


EN 
PRIMFCB CFCBSL_EFBLK] = .PRIMFCB CFCBSL_EFBLK) = 1; 
betas CFCBSL_EFBLK] GTR .PRIMFCB CFCBSL_FILESIZE] 
PRIMFCB CFCBSL_EFBLK) = .PRIMFCB CFCBSL_FILESIZEJ; 
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, END; 

: STSFLGS CSTS_LEAVE_FILEHDR = 0; | 

4 END; ! end of routine BUILD_EXT_FCBS 
-TITLE EXTFCB | 
SIDENT \V04-000\ | 
.EXTRN CREATE_FCB, NEXT_HEADER | 
-EXTRN READ_HEADER 


-PSECT S$CODES,NOWRT,2 | 
007c 00000 .ENTRY BUILD_EXT_FCBS, Save R2,R3,R4,R5,R6 : 1081 | 
| 
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PSECT SUMMARY 
Name Bytes Attributes 
SCODES 163 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


SPP ee ea et ee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 27 0 1000 00:02.0 

4 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LISS$:EXTFCB/OBJ=OBJ$:EXTFCB MSRCS$:EXTFCB/UPDATE=(ENHS$:EXTFCB) 


; piso: 163 code + 0 data bytes 
; Run Time 00:17.5 
: Si nssad Tine: 00:30.5 
3: Lines/CPU Min: 4075 
3 Lexemes/CPU-Min: 50577 

5 if Used: 218 pages 
3; Compilation Complete 
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